Practice 5.1

library(leaflet)
library(rgdal)

taiwan <- readOGR('Data/COUNTY_MOI_1090820.shp', use_iconv=TRUE, encoding='UTF-8')

## OGR data source with driver: ESRI Shapefile 
## Source: "/Users/hsiao/Documents/R_session_2023/rsession_practice/Data/COUNTY_MOI_1090820.shp", layer: "COUNTY_MOI_1090820"
## with 22 features
## It has 4 fields

seafood <- paste(sep = "<br/>",
             "<b><a href='https://www.facebook.com/anieseafood/'>ANIE Seafood</a></b>",
             "My personal recommendation for seafood",
             "ANIE Seafood, Keelung")

leaflet(taiwan) %>%
  addPolygons(weight=0.5) %>%
  addTiles(group="Kort") %>%
  addPopups(121.7365677, 25.1316771, seafood, options = popupOptions(closeButton = FALSE))